Age Animation of SDO Forecasts for Denver Metro Area

NOTE: county_forecast is available via my codemog R package here: https://github.com/robkemp/codemog/

denver_7county=c(1,5,13,14,31,35,59)
p=county_forecast%>%
  filter(countyfips%in%denver_7county, age<90)%>%
  ggplot(aes(x=age, y=totalPopulation))+
  geom_point(aes(frame=year), color=rgb(31,74,126,max=255))+
  facet_wrap(~county, scales = "free")+
  theme_codemog()+
  labs(x="Age", y="Total Population", title="Population Year: ")


ani.options(interval = .1)

gg_animate(p)

age_animation